home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / ch6 / cgrep next >
Text File  |  1991-01-08  |  776b  |  46 lines
  1. #!/usr/bin/perl
  2.  
  3. # Usage: cgrep [-lines] pattern [files]
  4.  
  5. $context = 3;
  6.  
  7. # They might want more or less context.
  8.  
  9. if ($ARGV[0] =~ /^-(\d+)$/) {
  10.     $context = $1;
  11.     shift;
  12. }
  13.  
  14. # Get the pattern and protect the delimiter.
  15.  
  16. $pat = shift;
  17. $pat =~ s#/#\\/#g;
  18.  
  19. # First line of input will be middle of array.
  20. # In the eval below, it will be $ary[$context].
  21.  
  22. $_ = <>;
  23. push(@ary,$_);
  24.  
  25. # Add blank lines before, more input after first line.
  26.  
  27. for (1 .. $context) {
  28.     unshift(@ary,'');
  29.     $_ = <>;
  30.     push(@ary,$_) if $_;
  31. }
  32.  
  33. # Now use @ary as a silo, shifting and pushing.
  34.  
  35. eval <<LOOP_END;
  36.     while (\$ary[$context]) {
  37.     if (\$ary[$context] =~ /$pat/) {
  38.         print "------\n" if \$seq++;
  39.         print \@ary,"\n";
  40.     }
  41.     \$_ = <> if \$_;
  42.     shift(\@ary);
  43.     push(\@ary,\$_); 
  44.     }
  45. LOOP_END
  46.